www.gusucode.com > 智睿政府网站管理系统 V2.1.0 > 智睿政府网站管理系统 V2.1.0\code\Include\Head.asp

    <%

'顶部导航
function Head()
	Response.Write"<table width='950' border='0' align='center' cellpadding='0' cellspacing='0'>"
	Response.Write"<tr><td width='500 '><font color=red>智睿政府网站管理系统，专注于地方政府服务开发！</font></td>"
	Response.Write"<td valign='bottom' align='right'><a onclick=""this.style.behavior='url(#default#homepage)';this.setHomePage('"&SiteUrl&"');""  >设为首页 </a> | <a style='cursor:hand'  onclick='window.external.AddFavorite(location.href,document.title);' >加入收藏 </a> | <a id=""based"">繁体中文</a>"
	Response.Write"<script language=""javascript"" src=""images/transform.js""></script>"
	Response.Write"</td>"
	Response.Write"</tr><tr><td height=2 colspan=2 bgcolor=#FF0000 ></td></tr></table>"
	advs(1)
	if Gover=1 then
	const ChannelID=2
	call MenuJS()
	Response.Write"<table width='950' border='0' cellspacing='0' cellpadding='0'  align='center' background=/Images/menu.gif><tr><td  align='right' height='28' >"
	if ChannelID<>0 then
	call ShowRootClass_menu()
	end if 
	Response.Write"</td></tr></table>"
	else
    dim rs,sql
    set rs = server.createobject("adodb.recordset")
    sql="select * from zhi_rui_g_Navigation where ViewFlag=1 order by Sequence asc"
    rs.open sql,conn,1,1
    response.Write("<table width=950  border=0 align=center cellpadding=0 cellspacing=0 background="&SitePath&"Images/menu.gif>")
    response.Write("<tr><td >")
    response.Write("<table width='99%' height=30  border=0  cellpadding=0 cellspacing=0 >")
    if rs.bof and rs.eof then
    response.write "<tr><td height='28' align='center'><font color='white'>暂无导航链接</font></td></tr>"
    else
    response.write "<tr>"
    do
	  response.write "<td height='28' align='center' ><a href='"&rs("NavUrl")&"'><FONT color="&rs("FontCor")&">"&rs("NavName")&"</font></a></td>"
	  rs.movenext
	loop until rs.eof
    response.write "</tr>"
  end if
  response.Write("</table>")
  response.Write("</td></tr></table>")
  rs.close
  set rs=nothing
  end if
End function
%>